home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / a_utils / perl / perl5a1.lha / perl5alpha1 / do / unshift < prev    next >
Encoding:
Text File  |  1992-08-15  |  389 b   |  21 lines
  1. void
  2. do_unshift(ary,arglast)
  3. register ARRAY *ary;
  4. int *arglast;
  5. {
  6.     register STR **st = stack->ary_array;
  7.     register int sp = arglast[1];
  8.     register int items = arglast[2] - sp;
  9.     register STR *TARG;
  10.     register int i;
  11.  
  12.     aunshift(ary,items);
  13.     i = 0;
  14.     for (st += ++sp; i < items; i++,st++) {
  15.     TARG = Str_new(27,0);
  16.     str_sset(TARG,*st);
  17.     (void)astore(ary,i,TARG);
  18.     }
  19. }
  20.  
  21.